(lao-composition-function): Don't use prog1.

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 1639b1bf78b7e279a5e4b3c3a559263c59adc526..0f8d472bddebfcca988b431e8f3cb4c0ecae9961 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -596,7 +596,7 @@ to compose.
 
 The return value is number of composed characters."
   (if (< (1+ from) to)
-      (prog1 (- to from)
+      (progn
        (if string
            (compose-string string from to)
          (compose-region from to))